#!/usr/bin/env wish

set buttons {
    {Pentominoes by squares} {pentovision {pento -q -v -v -v -v}}
    {Pentominoes by exact cover} {pentovision {pento -v -v -v -v}}
    {Pentominoes at full speed} {pentovision pento}
    {Sudoku puzzle 1} {sudoview puzzle1}
    {Sudoku puzzle 2} {sudoview telegraph}
    {Sudoku puzzle 3} {sudoview harder}
}

set nbut 0

set env(PATH) ".:$env(PATH)"

foreach {label cmd} $buttons {
    set i [incr nbut]
    button .b$i -text $label -command "launch $cmd"
    pack .b$i -fill x
}

proc launch {args} {
    eval exec $args &
}



